home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g56.bas < prev    next >
BASIC Source File  |  1991-10-18  |  644b  |  24 lines
  1. 100 ' G56 T.WAKAMATSU
  2. 110 CLS 
  3. 120 SYMBOL@(172,202),"Thank you.",4,4,%4
  4. 130 SYMBOL@(170,200),"Thank you.",4,4,%5
  5. 140 SYMBOL@(200,275),"AUGUST 1991 TOSHIKI WAKAMATSU",1,1,%7
  6. 150 DIM A(920),B(920),C(920),D(920)
  7. 160 CL(1)=6:CL(2)=4:CL(3)=5
  8. 170 FOR I=0 TO 910 
  9. 180   K=K+1:A(K)=I
  10. 190   FOR D=1 TO 8:NEXT D
  11. 200 NEXT I
  12. 210 L=351
  13. 220 FOR S=1 TO 3
  14. 230   FOR Z=S TO K-1 STEP 3
  15. 240     LINE (  A(Z),180)-(  A(Z),300),PSET,%CL(S)
  16. 250     IF Z-L<=0 THEN 270
  17. 260     LINE (A(Z-L),180)-(A(Z-L),300),PSET,0
  18. 270   NEXT Z
  19. 280   FOR J=S+K-2-L TO K-1 STEP 3
  20. 290     LINE (  A(J),180)-(  A(J),300),PSET,0
  21. 300   NEXT J
  22. 310 NEXT S
  23. 320 ED$="1"
  24.